home *** CD-ROM | disk | FTP | other *** search
- WC:
-
- /* The following will make the WC command.
- ; for RMX86
- plm86 wc.p86 cp ram ot(3)
- link86 wc.obj, &
- /rmx86/lib/compac.lib, &
- /rmx86/lib/hpifc.lib, &
- /rmx86/lib/rpifc.lib &
- segsize(stack(+1000)) &
- mempool(+0,0ff000h) &
- bind pu fl
- ; for RMX286 Release 1
- plm286 wc.p86 cp ram ot(3) set(rmx286)
- bnd286 wc.obj, &
- /rmx286/lib/upifc.lib, /rmx286/lib/udi.gat, &
- /rmx286/lib/hpifc.lib, /rmx286/lib/hi.gat, &
- /rmx286/lib/nucifc.lib, /rmx286/lib/nuc.gat &
- segsize(stack(+1000)) &
- rc(dm(1000h,0ff000h)) nodb
- ; for RMX286 Release 2ff
- plm286 wc.p86 cp ram ot(3) set(rmx286)
- bnd286 wc.obj, &
- /rmx286/lib/udiifc.lib, &
- /rmx286/lib/rmxifc.lib &
- segsize(stack(+1000)) &
- rc(dm(1000h,0ff000h)) nodb
- */
-
- DO;
-
- DECLARE TOKEN LITERALLY 'SELECTOR';
-
- $IF NOT RMX286
- $INCLUDE(/rmx86/inc/hgtipn.ext)
- $INCLUDE(/rmx86/inc/hsncor.ext)
- $INCLUDE(/rmx86/inc/uexit.ext)
- $ELSE
- $INCLUDE(/rmx286/inc/hi.ext)
- $INCLUDE(/rmx286/inc/udi.ext)
- $ENDIF
-
-
- DECLARE cr LITERALLY '0dh', lf LITERALLY '0ah';
-
- DECLARE fname(81) BYTE INITIAL (3), status WORD;
-
- DO WHILE (fname(0) > 2);
- CALL rq$c$get$input$pathname(@fname, SIZE(fname) - 1, @status);
- fname(fname(0) + 1) = cr;
- fname(fname(0) + 2) = lf;
- fname(0) = fname(0) + 2;
- IF (fname(0) > 2) THEN
- CALL rq$c$send$co$response(@fname, 0, @fname, @status);
- END; /* DO WHILE */
-
- CALL dq$exit(0);
-
- END WC;
-